unit frmClientesUnt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls, ComCtrls, Grids, DBGrids,
  FMTBcd, DB, DBClient, Provider, SqlExpr;

type
  Tfrmclientes = class(TForm)
    Panel1: TPanel;
    BitBtn4: TBitBtn;
    BitBtnGravar: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    sqlClienteAll: TSQLDataSet;
    sqlClienteAllCOD_CLIENTES: TLargeintField;
    sqlClienteAllNOME_CLIENTES: TStringField;
    sqlClienteAllEND_CLIENTES: TStringField;
    sqlClienteAllCEP_CLIENTES: TStringField;
    sqlClienteAllBAIRRO_CLIENTES: TStringField;
    sqlClienteAllCIDADE_CLIENTES: TStringField;
    sqlClienteAllESTADO_CLIENTES: TStringField;
    sqlClienteAllTELEFONE1_CLIENTES: TStringField;
    sqlClienteAllTELEFONE2_CLIENTES: TStringField;
    sqlClienteAllCELULAR_CLIENTES: TStringField;
    sqlClienteAllCPF_CLIENTES: TStringField;
    sqlClienteAllCNPJ_CLIENTES: TStringField;
    sqlClienteAllRG_CLIENTES: TStringField;
    sqlClienteAllNUMERO_CLIENTES: TStringField;
    sqlClienteAllCOMPLEMENTO: TStringField;
    sqlClienteAllORGAO_EXPEDIDOR: TStringField;
    sqlClienteAllDATA_NASCIMENTO: TDateField;
    sqlClienteAllDATA_CADASTRO: TDateField;
    sqlClienteAllFAX: TStringField;
    dspClienteAll: TDataSetProvider;
    cdsClienteAll: TClientDataSet;
    LargeintField1: TLargeintField;
    StringField1: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    StringField10: TStringField;
    StringField11: TStringField;
    StringField12: TStringField;
    DsrClienteAll: TDataSource;
    cdsClienteAllNUMERO_CLIENTES: TStringField;
    cdsClienteAllCOMPLEMENTO: TStringField;
    cdsClienteAllORGAO_EXPEDIDOR: TStringField;
    cdsClienteAllDATA_NASCIMENTO: TDateField;
    cdsClienteAllDATA_CADASTRO: TDateField;
    cdsClienteAllFAX: TStringField;
    BitBtnIncluir: TBitBtn;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    EditNomeCliente: TEdit;
    EditCPF: TEdit;
    RadioButtonPessoaFisica: TRadioButton;
    RadioButtonPessoaJuridica: TRadioButton;
    EditRgCliente: TEdit;
    EditTelefone1: TEdit;
    EditTelefone2: TEdit;
    EditCelular: TEdit;
    EditEndereco: TEdit;
    EditBairro: TEdit;
    EditCidade: TEdit;
    EditEstado: TEdit;
    EditCepCliente: TEdit;
    EditCodigoCliente: TEdit;
    EditNumero: TEdit;
    EditFaxCliente: TEdit;
    EditComplementoCliente: TEdit;
    DateTimePickerNasc: TDateTimePicker;
    DateTimePickerCad: TDateTimePicker;
    EditOrgaoExpedidor: TEdit;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    cdsClienteAllEND_CLIENTES: TStringField;
    Label19: TLabel;
    EditPesquisa: TEdit;
    procedure RadioButtonPessoaFisicaClick(Sender: TObject);
    procedure RadioButtonPessoaJuridicaClick(Sender: TObject);
    procedure EditCPFClick(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtnGravarClick(Sender: TObject);
    procedure DsrClienteAllDataChange(Sender: TObject; Field: TField);
    procedure BitBtnIncluirClick(Sender: TObject);
    procedure EditPesquisaChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmclientes: Tfrmclientes;

implementation

uses DMDadosUnt;

{$R *.dfm}



procedure Tfrmclientes.BitBtnGravarClick(Sender: TObject);
begin

  DsrClienteAll.DataSet.Post;
end;

procedure Tfrmclientes.BitBtnIncluirClick(Sender: TObject);
begin


      DMDados.cdsControle.Close;
      DMDados.cdsControle.Params[0].AsString := 'COD_CLIENTES';
      DMDados.cdsControle.Open;
      dsrClienteAll.DataSet.Edit;




  EditCodigoCliente.Text := '';
  EditNomeCliente.Text   := '';
  EditEndereco.Text      := '';
  EditCepCliente.Text    := '';
  EditBairro.Text        := '';
  EditCidade.Text        := '';
  EditEstado.Text        := '';
  EditTelefone1.Text     := '';
  EditTelefone2.Text     := '';
  EditCelular.Text       := '';

  EditCPF.Text := '';

  RadioButtonPessoaFisica.Checked := True;

  EditRgCliente.Text          := '';
  EditNumero.Text             := '';
  EditComplementoCliente.Text := '';
  EditOrgaoExpedidor.Text     := '';
  EditFaxCliente.Text         := '';

  DateTimePickerNasc.Date := Now;

  DateTimePickerCad.Date  := Now;

  dsrClienteAll.DataSet.Edit;
  dsrClienteAll.DataSet.Append;
  DsrClienteAll.DataSet.FieldByName('cod_clientes').AsString := IntToStr(DMDados.cdsControleVALOR.AsInteger + 1);
  BitBtnGravar.Enabled := True;

end;

procedure Tfrmclientes.DsrClienteAllDataChange(Sender: TObject; Field: TField);
begin
if not DsrClienteAll.DataSet.IsEmpty then
begin

  EditCodigoCliente.Text := DsrClienteAll.DataSet.FieldByName('cod_clientes').AsString;
  EditNomeCliente.Text   := DsrClienteAll.DataSet.FieldByName('nome_clientes').AsString;
  EditEndereco.Text      := DsrClienteAll.DataSet.FieldByName('end_clientes').AsString;
  EditCepCliente.Text    := DsrClienteAll.DataSet.FieldByName('cep_clientes').AsString;
  EditBairro.Text        := DsrClienteAll.DataSet.FieldByName('bairro_clientes').AsString;
  EditCidade.Text        := DsrClienteAll.DataSet.FieldByName('cidade_clientes').AsString;
  EditEstado.Text        := DsrClienteAll.DataSet.FieldByName('estado_clientes').AsString;
  EditTelefone1.Text     := DsrClienteAll.DataSet.FieldByName('telefone1_clientes').AsString;
  EditTelefone2.Text     := DsrClienteAll.DataSet.FieldByName('telefone2_clientes').AsString;
  EditCelular.Text       := DsrClienteAll.DataSet.FieldByName('celular_clientes').AsString;

  if DsrClienteAll.DataSet.FieldByName('cpf_clientes').AsString <> '' then
  begin
    EditCPF.Text := DsrClienteAll.DataSet.FieldByName('cpf_clientes').AsString;
    RadioButtonPessoaFisica.Checked := True;
  end
  else
  if DsrClienteAll.DataSet.FieldByName('cnpj_clientes').AsString <> '' then
  begin
    EditCPF.Text := DsrClienteAll.DataSet.FieldByName('cnpj_clientes').AsString;
    RadioButtonPessoaJuridica.Checked := True;
  end;

  EditRgCliente.Text          := DsrClienteAll.DataSet.FieldByName('rg_clientes').AsString;
  EditNumero.Text             := DsrClienteAll.DataSet.FieldByName('numero_clientes').AsString;
  EditComplementoCliente.Text := DsrClienteAll.DataSet.FieldByName('complemento').AsString;
  EditOrgaoExpedidor.Text     := DsrClienteAll.DataSet.FieldByName('orgao_expedidor').AsString;
  EditFaxCliente.Text         := DsrClienteAll.DataSet.FieldByName('fax').AsString;


  if DsrClienteAll.DataSet.FieldByName('data_nascimento').AsString <> '' then
  begin
    DateTimePickerNasc.Date := DsrClienteAll.DataSet.FieldByName('data_nascimento').AsDateTime;
  end;

  if DsrClienteAll.DataSet.FieldByName('data_cadastro').AsString <> '' then
  begin
    DateTimePickerCad.Date  := DsrClienteAll.DataSet.FieldByName('data_cadastro').AsDateTime;
  end;




end;
end;

procedure Tfrmclientes.EditPesquisaChange(Sender: TObject);
begin
  DsrClienteAll.DataSet.Filtered := False;
  DsrClienteAll.DataSet.FilterOptions := [foCaseInsensitive];

  DsrClienteAll.DataSet.Filter := 'nome_clientes like '+QuotedStr('%'+EditPesquisa.Text+'%');
  DsrClienteAll.DataSet.Filtered := true;
end;

procedure Tfrmclientes.EditCPFClick(Sender: TObject);
begin
  EditCPF.Text := '';
end;

procedure Tfrmclientes.FormCreate(Sender: TObject);
begin
  with DMDados do
    begin
      cdsControle.Close;
      cdsControle.Params[0].AsString := 'COD_CLIENTES';
      cdsControle.Open;
      EditCodigoCliente.Text := IntToStr(cdsControleVALOR.AsInteger + 1);

      cdsClienteAll.Open;
    end;
end;

procedure Tfrmclientes.Label2Click(Sender: TObject);
begin
  {if RadioButtonPessoaJuridica.Action =    then
    Begin
    Label2.Caption := 'I.E';
    End;}
  end;

procedure Tfrmclientes.RadioButtonPessoaFisicaClick(Sender: TObject);
begin
EditCPF.Text := 'CPF';

end;



procedure Tfrmclientes.RadioButtonPessoaJuridicaClick(Sender: TObject);
begin
EditCPF.Text := 'CNPJ';

end;

end.
